home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / iqb9109.zip / TESTRAND.BAS < prev   
BASIC Source File  |  1991-09-09  |  314b  |  18 lines
  1. ' TESTRAND.BAS
  2. ' $INCLUDE: 'RANDFN.BI'
  3. DEFINT A-Z
  4.  
  5. ' The following program fragment demonstrates
  6. ' how you use the functions Ran0%(), Ran1%(),
  7. ' Ran0&(), and Ran1&().
  8.  
  9. PRINT: PRINT
  10. FOR x = 1 TO 30
  11.    j& = 40000
  12.    j% = 100
  13.    PRINT Ran0%(j%), Ran1%(j%), 
  14.    PRINT Ran0&(j&), Ran1&(j&)
  15. NEXT x
  16. END
  17.  
  18.